10 POKE53280,0:POKE53281,0:POKE53272,21
20 PRINT"[147][156]     **    WHC ENTERPRISES    **"
25 PRINT"         SPELLINGZZZZZZAPPER
30 [153]"OPEN   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((C)ED-XXTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
40 [134]A$(15)
50 [129]A[178]1[164]15:[135]A$(A):[153]"CONT"[201]("   "[170][196](A),4);". SYS";A$(A):[130]A
60 [133]"CHOOSE(1-15):";A$
70 A[178][197](A$):[139]A[179]1[176]A[177]15[176]A[179][177][181](A)[167][153]"ONONONON":[137]60
80 [129]X[178]1230[170]40[172]A[164]1229[170]40[172]A[170][195](A$(A)):[151]X,[194](X)[170]128:[151]X[170]54272,3:[130]
90 [129]T[178]1[164]1500:[130]:[153]"LOAD  LOADING......  "A$(A)
100 [153]"STOPLOAD"[199](34)A$(A)[199](34)",8:"
110 [151]198,0:[151]631,19:[151]632,131:[151]198,2:[128]
59999 :
60001 [131] "PRACTICE 1"
60002 [131] "TEST 1"
60003 [131] "PRACTICE 2"
60004 [131] "TEST 2"
60005 [131] "PRACTICE 3"
60006 [131] "TEST 3"
60007 [131] "PRACTICE 4"
60008 [131] "TEST 4"
60009 [131] "PRACTICE 5"
60010 [131] "TEST 5"
60011 [131] "PRACTICE 6"
60012 [131] "TEST 6"
60013 [131] "**"
60014 [131] "MORE UNITS"
60015 [131] "TEACHER INFO"
60016 [143] WHC 91:11:28